(shell): With prefix-arg, suggest a new buffer name.

diff --git a/lisp/shell.el b/lisp/shell.el
index fdf80cba220e6516aa98d436191ecfd3a110fa88..b220b85fbbef8b7fc1f361fffbe07bf8fea4666d 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -533,7 +533,8 @@ Otherwise, one argument `-i' is passed to the shell.
   (interactive
    (list
     (and current-prefix-arg
-        (read-buffer "Shell buffer: " "*shell*"))))
+        (read-buffer "Shell buffer: "
+                     (generate-new-buffer-name "*shell*")))))
   (setq buffer (get-buffer-create (or buffer "*shell*")))
   ;; Pop to buffer, so that the buffer's window will be correctly set
   ;; when we call comint (so that comint sets the COLUMNS env var properly).